home *** CD-ROM | disk | FTP | other *** search
/ MacHack 1994 / MacHack 1994.toast / MacHack™ 1987-1994 / MacHack™ '90 / Source Code ƒ.sea / Source Code ƒ / Modula2 ƒ / DataStack Filer / LocLib.Def / LocLib.Def.rsrc < prev    next >
Encoding:
Text File  |  1990-06-15  |  464 b   |  20 lines  |  [TEXT/MPS ]
  1.     2 R~TEXTMPS ror() # 0 THEN
  2.         dataStackErr := MemError();
  3.         SetHandleSize(iKeys,keyArrSize);
  4.         DisposPtr(dPtr);
  5.         RETURN NIL;
  6.         END;
  7.  
  8.     gStk := NewHandle(SIZE(GrowStackRec));
  9.     IF gStk = NIL THEN
  10.         dataStackErr := MemError();
  11.         SetHandleSize(iKeys,keyArrSize);
  12.         SetHandleSize(nKeys,keyArrSize);
  13.         DisposPtr(dPtr);
  14.         RETURN NIL;
  15.         END;
  16.     
  17.     WITH gStk^^ DO
  18.         filledCards := 0;
  19.         dataPtr := dPtr;
  20.         gr